1 REM ******************************
2 REM *     ADVENTUREGERUEST       *
3 REM *      C 64 --- BASIC        *
4 REM ******************************
5 :
6 REM INITIALISIEREN
7 :
10 DIM R$(4),R(4),OB$(20),OB(20)
20 R$(1)="NORDEN ":R$(2)="OSTEN "
25 R$(3)="SUEDEN ":R$(4)="WESTEN "
30 OA=2 :REM ANZAHL DER OBJEKTE !!!
34 :
35 REM OBJEKTE LESEN
36 :
40 RESTORE
41 READZZ$:IFZZ$<> "#" THEN41
45 FOR T=1 TO OA:READ OB(T),OB$(T):NEXT
60 REM ZIMMER 1 IST ANFANG
65 ZN=1:GOSUB 8000
70 GOSUB 8100
75 GOSUB 8200
97 :
98 REM HAUPTSCHLEIFE
99 :
100 INPUT"BEFEHL";A$
110 IF LEN(A$) >1 THEN 200
120 FOR T=1 TO 4
130 IF LEFT$(R$(T),1)=A$ THEN 150
140 NEXT T: GOTO 100
150 IF R(T)=0THEN100:REM NICHT ZULAESSIG
152 IF R(T)=128THENEND:REM TOT
155 ZN=R(T)
160 GOSUB 8000
170 GOSUB 8100
180 GOSUB 8200
190 GOTO  100
200 GOSUB 8400
210 GOSUB 1000:GOTO 100
997 :
998 REM VOKABULAR UND LOGIK
999 :
1000 IF V$="HOLEN" AND O$="BLEISTIFT" AND ZN=OB(2) THEN OB(2)=0
1100 IF V$="HINLEGEN" AND O$="BLEISTIFT" AND OB(2)=0 THEN OB(2)=ZN
7900 GOSUB 8100:GOSUB 8200
7910 RETURN
7998 :
7999 :
8000 RESTORE
8001 READZZ$:IFZZ$<>"$"THEN8001
8010 FOR T=1 TO ZN
8020 FOR T1=1 TO4
8030 READ R(T1)
8040 NEXT T1
8050 READ TX$
8060 NEXT T
8070 RETURN
8098 :
8099 :
8100 PRINT"[147]";
8110 PRINTTX$""
8120 PRINT"AUSGAENGE:"
8130 FOR T=1 TO 4
8140 IF R(T) >0 THEN PRINT R$(T);
8150 NEXT T
8160 PRINT""
8170 RETURN
8198 :
8199 :
8200 :
8205 PRINT"DU SIEHST"
8210 FOR T=1 TO OA
8220 IF OB(T)<>ZN THEN 8240
8230 PRINT OB$(T);" ";
8240 NEXT T
8245 PRINT""
8250 RETURN
8398 :
8399 :
8400 FOR T=1 TO LEN(A$)
8410 IF MID$(A$,T,1)=" " THEN 8430
8420 NEXT T:V$="":O$="":RETURN
8430 O$=LEFT$(A$,T-1)
8440 V$=RIGHT$(A$,LEN(A$)-T)
8450 RETURN
9998 :
9999 :
10000 DATA "$"
10001 DATA 2,3,0,128,"ZIMMER 1"
10002 DATA 0,4,1,0,"ZIMMER 2"
10003 DATA 4,0,0,1,"ZIMMER 3"
10004 DATA 0,0,3,2,"ZIMMER 4"
12000 DATA "#"
12001 DATA 0,"PAPIER"
12002 DATA 1,"BLEISTIFT